home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / B-Business / (c)b4.d64 / mag index.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  308 lines
  1. 0 POKE53280,0:POKE53281,0:PRINT"[147]";CHR$(14)
  2. 1 PRINT"     *******************************
  3. 2 [153]"     *                             *
  4. 3 PRINT"     *    [205][193][199][193][218][201][206][197] [198][201][204][197] [201][206][196][197][216][146]      *
  5. 4 [153]"     *    ASCOR THE LENOMMODORE 64     *
  6. 5 PRINT"     *    AND DISK DRIVE.          *
  7. 6 [153]"     *                             *
  8. 7 PRINT"     * [196]ON [215]HITE                   *
  9. 8 [153]"     * 47 ATNRIEL LENOURT              *
  10. 9 PRINT"     * [206]EPEAN, [207]NTARIO             *
  11. 10 [153]"     * (null)2LEFT$ 8MID$1                     *
  12. 11 PRINT"     * 613-829-2082                *
  13. 12 [153]"     *                             *
  14. 13 PRINT"     *                             *
  15. 14 [153]"     *    (null)EVISED: 03 ASCEB. 84      *
  16. 15 PRINT"     *    [208]RINTER [198]UNCTION [193]DDED   *
  17. 16 [153]"     *                             *
  18. 17 PRINT"     * [202]AMES [203]. [198]OSTER             *
  19. 18 [153]"     * PEEKOX 185                     *
  20. 19 PRINT"     * [194]ELLA [195]OOLA, [194].[195].           *
  21. 20 [153]"     * (null)0(null) 1LEN0                     *
  22. 21 PRINT"     *                             *
  23. 22 [153]"     *******************************
  24. 23 PRINT
  25. 24 GOSUB 468
  26. 34 DIMM$(20)
  27. 36 M$(1)="65XX [205]ACHINE [204]ANGUAGE"
  28. 38 M$(2)="65XX [212]ECHNIQUES"
  29. 40 M$(3)="[195]64 [208]ROGRAMS"
  30. 42 M$(4)="[195]64 [212]ECHNIQUES"
  31. 44 M$(5)="[199]AMES"
  32. 46 M$(6)="[199]RAPHICS"
  33. 48 M$(7)="[205]ATHEMATICS"
  34. 50 M$(8)="[194]USINESS"
  35. 52 M$(9)="[194]ASIC [208]ROGRAMMING"
  36. 54 M$(10)="[195]OMMUNICATIONS"
  37. 56 M$(11)="[200]ARDWARE"
  38. 58 M$(12)="[211]OFTWARE"
  39. 60 M$(13)="[204]ANGUAGES"
  40. 62 M$(14)="[213]TILITIES"
  41. 64 M$(15)="[211]IMULATIONS"
  42. 66 M$(16)="[205]ISCELLANEOUS"
  43. 68 M$(17)="[193]PPLICATIONS"
  44. 70 M$(18)="[205]USIC"
  45. 72 M$(19)="[197]DUCATION"
  46. 74 M$(20)="[208]-500"
  47. 76 REM
  48. 78 GOTO332
  49. 80 REM
  50. 82 REM **** INDEX FILE SEARCH ****
  51. 84 REM
  52. 86 L=0
  53. 88 PRINTTAB(5)"[147][158][195]ATEGORIES AND CODES ARE:
  54. 90 [129]I[178]1[164]20
  55. 92 I$[178]" "[170][196](I)
  56. 94 [153][163]5)[199](30)[201](I$,2)".  "[199](158)M$(I)
  57. 96 [130]
  58. 98 [133]"(null)HICH CATEGORYWAIT  CLOSECMDCMDCMD";I$:I[178][197](I$)
  59. 100 [139]I[179]1[176]I[177]20[167][153]"ONONON":[137]98
  60. 101 [139]JF[179][177]1[167][153]"LOAD":[141]600
  61. 102 [139]SS[178]1[167]SS[178]0:[141]665
  62. 103 [141]138:[143] FORMAT SCREEN
  63. 104 [140]:[135] N
  64. 106 [141]118:[143] READ DATA
  65. 108 [139][200](ZZ$,1)[178]"Y"[167][141]700:[137]82
  66. 109 [160]4:JF[178]0
  67. 110 [137]332
  68. 112 [143]
  69. 114 [143]   ****** READ DATA ******
  70. 116 [143]
  71. 118 [135]C1,C2,C3,A$,B$,C$,D$
  72. 120 [139]A$[178]""[167]130
  73. 121 [141]800
  74. 122 A$[178][200](A$,22):[143] MAKE SURE STRING FITS SCREEN FORMAT
  75. 124 [139]C1[178]I[176]C2[178]I[176]C3[178]I[167][153]A$[163]23)B$[163]30)C$[163]35)D$:L[178]L[170]1
  76. 126 [139]L[178]17[167][141]164:[143] PAUSE
  77. 128 [137]118
  78. 130 [153]"DEFATNNOTHER CATEGORY
  79. 132 INPUT"(Y OR N)[146]  [158]Y[157][157][157]";ZZ$
  80. 134 RETURN
  81. 136 REM
  82. 138 REM  **** FORMAT SCREEN ****
  83. 140 REM
  84. 142 PRINT"[147][195]ATEGORY:"TAB(15)CHR$(158)""M$(I)"[146]"
  85. 144 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][178][192][192][192][192][178][192][192][192][174]
  86. 146 [153]"(null)(null)PEEKMID$VALLEN(null)"[163]23)"(null)(null)(null)(null)LENVAL"[163]30)"STR$ATN(null)VAL"[163]35)"(null)CHR$#
  87. 148 FORJ=0TO38:PRINT"[192]";:NEXT
  88. 150 PRINT""
  89. 152 PRINTTAB(22)"[221]"TAB(29)"[221]"TAB(34)"[221]"TAB(38)"[221]"
  90. 154 PRINTTAB(22)"[219]"TAB(29)"[219]"TAB(34)"[219]"TAB(38)"[179]":PRINT"[145]
  91. 156 [129]J[178]1[164]20:[153][163]22)"(null)"[163]29)"(null)"[163]34)"(null)"[163]38)"(null)":[130]
  92. 158 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTAN>TANTANTANTAN>TANTANTANEXPLIST";
  93. 160 [153]"":[142]
  94. 162 [143]
  95. 164 [143]  ***** CLEAR FORMAT *****
  96. 166 [143]
  97. 168 [153]"DEF(null)RESS SPACEWAIT TO CON-":[153]"TINUE, @WAIT TO EXIT.
  98. 170 GETZZ$:IFZZ$=""THEN170
  99. 172 IFZZ$="@"THEN338
  100. 174 PRINT""
  101. 176 FORJ=1TO20
  102. 178 PRINT"                      [221]      [221]    [221]   [155]":NEXT
  103. 180 L=0:PRINT"":RETURN
  104. 182 REM
  105. 184 REM  ***** MAGAZINE CODE *****
  106. 186 REM
  107. 188 PRINT"[147]"TAB(13)"[158][205][193][199][193][218][201][206][197] [195][207][196][197][211][155]
  108. 190 [153]"   LENLEN      LENREATIVE LENOMPUTING":[153]"   (null)LEN      (null)ERSONAL LENOMPUTING
  109. 192 PRINT"   [203][194]      [203]ILOBAUD [205]ICROCOMPUTING":PRINT"   [194][217][212][197]    [194][217][212][197]
  110. 194 [153]"   (null)RIGHT$LEN(null)(null)   (null)RIGHT$LEN(null)(null)":[153]"   (null)(null)ATN(null)(null)   (null)RANSACTOR
  111. 196 PRINT"   [201][206][212][193][199][197]  [201]NTERFACE [193]GE"
  112. 198 PRINT"   [195][207][205][208]    [195][207][205][208][213][212][197]!
  113. 200 [141]462
  114. 202 [137]332
  115. 204 [143]
  116. 206 [143]  *** ADD MATERIAL ***
  117. 208 [143]
  118. 210 [153]"LOAD"[163]11)"SYS*** LEN(null)VALATN(null)VAL STR$ATN(null)ATNWAIT ***"
  119. 212 [143] PRINT""TAB(9)"(null)P MODES & ENTRY CODES
  120. 214 PRINT""TAB(11)"[197]NTER NEW DATA[158]    E"
  121. 216 PRINT""TAB(11)"[200]ELP[158]              H"
  122. 218 PRINT""TAB(11)"[197]XIT[158]              \"
  123. 220 PRINT:PRINT:PRINT"            [217]OUR CHOICE ?"
  124. 222 GETA$:IFA$<>"E"ANDA$<>"H"ANDA$<>"\"THEN222
  125. 224 IFA$="E"THEN232
  126. 226 IFA$="H"THEN364
  127. 228 GOTO338
  128. 230 REM
  129. 232 REM  *** ENTER DATA ***
  130. 234 REM
  131. 235 DN$=""
  132. 236 X=FRE(0):IFX<0THENX=65535+FRE(0)
  133. 238 PRINT"[147][158][196]ATA ENTRY MODE[146] -"X"BYTES FREE":PRINTDN$"[164]"
  134. 240 PRINT""TAB(4)"C1,C2,C3,"CHR$(34)"TITLE"CHR$(34)","CHR$(34)"REF"CHR$(34);
  135. 242 PRINT",DATE,PAGE"
  136. 244 PRINT""TAB(7)"[150][208]RESS '\' TO EXIT THIS MODE[158]"
  137. 246 GETA$:IFA$=""THEN246
  138. 248 IFA$=CHR$(20)ANDLEN(R$)=0THEN246
  139. 250 IFA$=CHR$(20)ANDLEN(R$)>0THENR$=LEFT$(R$,LEN(R$)-1):PRINTDN$R$A$:A$=""
  140. 252 IF A$=CHR$(13)THEN270
  141. 254 IFA$="\"THENRUN
  142. 256 R$=R$+A$:IFLEN(R$)<65THEN268
  143. 258 PRINTDN$
  144. 260 PRINT"  [196][193][212][193] ENTRY HAS EXCEEDED 65 CHARACTERS.
  145. 262 [153]"        (null)LEASE RE-ENTER DATA"
  146. 264 [141]462
  147. 266 R$[178]"":[137]238
  148. 268 [153]DN$R$"TO":[137]246
  149. 270 [140]:[135]N:N[178]N[170]1:LN[178]1000[170]N
  150. 272 [153]""LN"DATA "R$
  151. 274 [153]"1000 DATA "N
  152. 276 [153]"GOTO232":[153]"
  153. 278 POKE198,3:POKE631,13:POKE632,13:POKE633,13
  154. 280 END
  155. 282 REM    **** SAVE FILE ****
  156. 284 REM
  157. 286 INPUT"[147][158][193]RE YOU REPLACING A PREVIOUS VERSION  Y[157][157][157]";ZZ$
  158. 288 INPUT"[198]ILE NAME                [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";F$
  159. 290 IFF$="[160]"THEN288
  160. 292 INPUT"[201]S THIS CORRECT[160][160]Y[157][157][157]";A$
  161. 294 IFA$<>"Y"THEN288
  162. 296 INPUT"[215]HICH DRIVE  0[157][157][157]";D$:D=VAL(D$)
  163. 298 IFD<0ORD>1THENPRINT"[145][145][145]":GOTO296
  164. 300 OPEN15,8,15:PRINT#15,"I"+D$
  165. 302 IFZZ$<>"Y"THEN308
  166. 304 PRINT#15,"R"+D$+":TEMP="+F$
  167. 305 INPUT#15,E,E$,E1,E2
  168. 306 IFE>19THENPRINT""E$:PRINT"[198]ILE NOT SAVED":GOSUB462:GOTO318
  169. 308 SAVED$+":"+F$,8
  170. 310 PRINT"[214]ERIFYING[146] "F$
  171. 312 VERIFY"*",8
  172. 314 IFST<>64THENCLOSE15:END
  173. 316 IFZZ$="Y"THENPRINT#15,"S"+D$+":TEMP"
  174. 318 CLOSE15:GOTO332
  175. 320 REM
  176. 322 REM ****** EXIT *****
  177. 324 REM
  178. 326 PRINT"[147]
  179. 328 [128]
  180. 330 [143]
  181. 332 [143] *** MAIN PROGRAM BLOCK ***
  182. 333 [151]53280,0:[151]53281,0
  183. 334 [143]
  184. 336 [153][199](14)
  185. 338 [153]"LOAD"[163]9)"SYS*** (null)ATNCHR$ATN(null)RIGHT$(null)VAL RIGHT$(null)STR$VAL(null)WAIT ***"
  186. 340 [153][163]9)"1.SYS  (null)EARCH FILE"
  187. 342 [153][163]9)"2.SYS  (null)IST MAGAZINE CODE
  188. 344 PRINTTAB(9)"3.[158]  [193]DD MATERIAL
  189. 346 [153][163]9)"4.SYS  (null)AVE FILE
  190. 348 PRINTTAB(9)"5.[158]  [201]NSTRUCTIONS
  191. 350 [153][163]9)"6.SYS  (null)OAD ANOTHER INDEX
  192. 352 PRINTTAB(9)"7.[158]  [197]XIT PROGRAM
  193. 354 [153][163]5)"    (null)OUR CHOICE ?
  194. 356 GETZZ$:IFZZ$=""THEN356
  195. 358 ZZ=VAL(ZZ$):IFZZ<1ORZZ>7THENPRINT"[145][145][145]";:GOTO354
  196. 360 ONZZGOTO82,184,206,282,404,476,322
  197. 362 REM
  198. 364 REM  ****  HELP FUNCTION ****
  199. 366 REM
  200. 368 PRINT"[147]"TAB(10)"[158]*** [201][206][211][212][210][213][195][212][201][207][206][211][146] ***"
  201. 370 PRINT"[155]  [212]HE DATA MUST BE ENTERED IN 7 FIELDS.
  202. 372 [153]"(null)HE FORMAT FOR THE FIELDS IS:
  203. 374 PRINT"[158]   C1,C2,C3,"CHR$(34)"TITLE"CHR$(34)","CHR$(34)"REF"CHR$(34);
  204. 376 PRINT",DATE,PAGE"
  205. 378 PRINT"[155]WHERE C1,C2,C3 ARE CROSS REFERENCE
  206. 380 [153]"VALUES AS PER THE CATEGORY LIST.
  207. 382 PRINT"[193]S AN EXAMPLE:
  208. 384 [153]"SYS   1,4,0,"[199](34)"(null)ETBUG"[199](34)","[199](34);
  209. 386 [153]"LEN(null)(null)(null)"[199](34)",8107,132"
  210. 388 [153]"LISTVALACH FIELD MUST BE FOLLOWED BY A COMMA
  211. 390 PRINT"AND THE [193]RTICLE AND [205]AGAZINE NAMES MUST
  212. 392 [153]"BE PRECEEDED AND FOLLOWED BY QUOTATION
  213. 394 PRINT"MARKS.
  214. 396 [153]"(null)SE '0' FOR NULL CROSS-REFERENCES."
  215. 398 [141] 462
  216. 400 [137]206
  217. 402 [143]
  218. 404 [143]  *** GENERAL INSTRUCTIONS ***
  219. 406 [143]
  220. 408 [153]"LOAD"[163]10)"SYS*** RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)WAIT ***"
  221. 410 [153]"LIST(null)HIS PROGRAM ALLOWS THE USER TO STORE
  222. 412 PRINT"INFORMATION RELATING TO MAGAZINE
  223. 414 [153]"ARTICLES IN STR$ATN(null)ATN STATEMENTS WITHIN THE
  224. 416 PRINT"PROGRAM. [197]ACH ARTICLE CAN HAVE UP TO
  225. 418 [153]"3  CROSS-REFERENCES. (null)HE CROSS-REFER-
  226. 420 PRINT"ENCE CATEGORIES WILL BE DISPLAYED WHEN
  227. 422 [153]"(null)PTION 1 IN THE (null)ENU IS CHOSEN. (null)HE
  228. 424 PRINT"CROSS-REFERENCE TITLES ARE STORED AT
  229. 426 [153]"THE BEGINNING OF THE PROGRAM AND CAN BE
  230. 428 PRINT"EASILY MODIFIED TO SUIT THE USER.
  231. 430 [153]"(null)EW STR$ATN(null)ATN STATEMENTS ARE CREATED IN THE
  232. 432 PRINT"PROGRAM BY SELECTING [207]PTION 3. [212]HE
  233. 434 [153]"INSTRUCTIONS FOR CREATING THE STR$ATA
  234. 436 PRINT"[194]ASE CAN BE ACCESSED FROM THAT ROUTINE.
  235. 438 [141]462
  236. 440 [153]"LOAD"[163]10)"SYS*** RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)WAIT ***"
  237. 442 [153]"LIST(null)NCE MODIFICATIONS HAVE BEEN MADE IN
  238. 444 PRINT"THE [196][193][212][193] STATEMENTS, THE PROGRAM CAN
  239. 446 [153]"THEN SAVE A COPY OF ITSELF TO DISK.
  240. 448 PRINT"[201]F YOU WISH, THE PREVIOUS COPY OF THE
  241. 450 [153]"PROGRAM WILL BE RENAMED, A NEW COPY
  242. 452 PRINT"SAVED AND VERIFIED, AND THE OLD COPY
  243. 454 [153]"SCRATCHED.
  244. 455 GOSUB500
  245. 456 GOSUB462
  246. 458 GOTO332
  247. 460 REM
  248. 462 REM ***** PROMPT *****
  249. 464 REM
  250. 466 PRINT"
  251. 468 [153][163]5)"DEF(null)RESS (null)VAL(null)(null)(null)(null)WAIT TO CONTINUE
  252. 470 GETZZ$:IFZZ$<>CHR$(13)THEN470
  253. 472 RETURN
  254. 474 REM
  255. 476 REM *** LOAD ANOTHER INDEX ***
  256. 478 REM
  257. 480 INPUT"[147][158][201]NDEX YEAR TO BE LOADED  *           [157][157][157][157][157][157][157][157][157][157][157][157][157][157]";F$
  258. 482 IFF$="*"THEN480
  259. 484 INPUT"IS THIS CORRECT[160][160]Y[157][157][157]";ZZ$
  260. 486 IFZZ$<>"Y"THEN480
  261. 488 PRINT"[147]LOAD";CHR$(34);F$;CHR$(34);",8"
  262. 490 PRINT"RUN"
  263. 492 POKE198,2:POKE631,13:POKE632,13
  264. 494 END
  265. 500 REM
  266. 505 REM *** (null)ORE GENERAL INSTRUCTIONS ***
  267. 510 REM
  268. 515 PRINT"[205]AGAZINE [195]ODE [204]IST REFERED TO IN":PRINT"ITEM 2, CAN BE USER MODIFIED BY
  269. 520 [153]"CHANGING THE PROGRAM IN LINES 190-198.":[142]
  270. 600 [153]"LEFT$ARD LENOPY (null)EQUIRED?  (VALNTER Y OR N)"
  271. 610 [161]JF$:[139]JF$[178]""[167]610
  272. 615 [139]JF$[179][177]"Y"[167][142]
  273. 620 [153]"(null)RINTER READY?
  274. 625 GETJF$:IFJF$=""THEN625
  275. 630 IFJF$="Y"THENJF=1:GOTO660
  276. 635 PRINT"[147][197]NTER Y[146] IF PRINTER READY,":PRINT"OR R[146] TO RETURN.
  277. 640 [161]JF$:[139]JF$[178]""[167]640
  278. 645 [139]JF$[178]"R"[167] [142]
  279. 650 [139]JF$[178]"Y"[167]JF[178]1:[137]660
  280. 655 [137]635
  281. 660 [159]4,4,7
  282. 664 [152]4
  283. 665 [152]4,[199](14);[163]7)"*** (null)ATNCHR$ATN(null)RIGHT$(null)VAL ASCRIGHT$(null)VAL RIGHT$(null)STR$VAL(null) ***":[152]4
  284. 667 [152]4,[199](27);[199](45);[199](1);
  285. 670 [152]4,"    LENATN(null)ATNCHR$(null)(null)(null):  ";I;"  ";M$(I):[152]4
  286. 675 [152]4,"    (null)(null)PEEKMID$VALLEN(null)";[163]29)"(null)(null)(null)(null)LENVAL";[163]4)"RIGHT$(null)(null)(null)VAL";[163]3)"(null)ATNCHR$VAL #";
  287. 677 [152]4,"";[163]4)"LEN(null)(null)(null)(null) (null)VALASC."
  288. 680 [152]4,[199](27);[199](45);[199](0):AF[178]7:[142]
  289. 700 [139]JF[178]1[167]SF[178]66[171]AF:[129]CH[178]0[164]SF:[152]4:[130]CH:SS[178]1
  290. 710 [142]
  291. 800 [139]JF[179][177]1[167] [142]
  292. 805 X(2)[178][195](B$):X(3)[178][195](C$):X(4)[178][195](D$)
  293. 810 X(1)[178][195](A$):[139]X(1)[177]35[167]A$[178][200](A$,35)
  294. 820 [139]C1[178]I[176]C2[178]I[176]C3[178]I[167]835
  295. 830 [142]
  296. 835 AF[178]AF[170]1:[152]4,"    ";A$;[163]36[171]X(1))B$;[163]10[171]X(2))C$;[163]10[171]X(3))D$;
  297. 840 [152]4,"";[163]6[171]X(4))C1;" ";C2;" ";C3
  298. 845 [139]AF[178]62[167]855
  299. 850 [142]
  300. 855 [129]CF[178]0[164]3:[152]4:[130]CF
  301. 860 [141]665
  302. 865 [142]
  303. 990 [143]
  304. 993 [143] **** DATA STARTS HERE ****
  305. 996 [143]
  306. 1000 [131]  0
  307. 9999 [131] 0,0,0,"","","","":[143] END OF FILE
  308.